source("C:/Users/cheid/OneDrive - Aarhus universitet/2025-02_JobChoice-Christian/03_final/replication_code/01_process_data.R", echo = TRUE)
# Libraries
library(tidyverse)
library(gsynth)
library(panelView)
library(xtable)
library(patchwork)
library(stargazer)
# Custom functions
source(paste0(here::here(), "/input/funs/funs.R"))
# Data
df <- readRDS(paste0(here::here(), "/input/processed/applications_1997-2024.RDS"))
# Libraries
library(tidyverse)
library(gsynth)
library(panelView)
library(xtable)
library(patchwork)
library(stargazer)
library(kableExtra)
# Data
df <- readRDS(paste0(here::here(), "/input/processed/applications_1997-2024.RDS"))
View(df)
source("C:/Users/cheid/OneDrive - Aarhus universitet/2025-02_JobChoice-Christian/03_final/replication_code/02_main_analysis.R", echo = TRUE)
